(*Este es para probar las cadenas y los caracteres, y los punteros de regalo*)
program
  type puntero = ^real;
  var caracter : char;
  var estrin : String;
  var b : boolean;
begin
	caracter := 'a'and or shl;
	estrin := 'aa';
	A+B;
	[pipi]
	(.pipi.)
	{esto seria un hexadecimal}
	a:=$12;
    {esto seria un codigo ASCII}
    b:=#126;
    b := b and true;
    b := not false;
    b := (3 < 6);  
END.
